home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / gm90eval.arc / GM.BAT < prev    next >
Encoding:
DOS Batch File  |  1990-12-05  |  1.8 KB  |  142 lines
  1. ECHO OFF
  2. cls
  3. break on
  4. print/d:prn>nul
  5. :start
  6. cls
  7. f1
  8. :start2
  9. KEYPRESS $
  10. if errorlevel 1 goto nflmenu 
  11. goto start2
  12. :nflmenu
  13. cls
  14. f2
  15. :nflstart
  16. KEYPRESS 0 1 2 3 4 5 
  17. if errorlevel 6 goto update
  18. if errorlevel 5 goto chknfl
  19. if errorlevel 4 goto trintro
  20. if errorlevel 3 goto s3intro
  21. if errorlevel 2 goto s2intro
  22. if errorlevel 1 goto mainexit
  23. goto nflstart
  24. :mainexit
  25. cls
  26. gmbye
  27. goto bye
  28. :update
  29. cls
  30. update
  31. goto nflmenu
  32. :chknfl
  33. cls
  34. chknfl
  35. goto nflmenu
  36. :trintro
  37. cls
  38. trintro
  39. goto trstart
  40. :trstart
  41. KEYPRESS 0 1 2 3
  42. if errorlevel 4 goto trread
  43. if errorlevel 3 goto trends2
  44. if errorlevel 2 goto trends1
  45. if errorlevel 1 goto trexit
  46. goto trstart
  47. :trexit
  48. cls
  49. echo Exiting NFL TRENDS...
  50. goto nflmenu
  51. :trends1
  52. cls
  53. trends1
  54. cls
  55. goto trintro
  56. :trends2
  57. cls
  58. trends2
  59. cls
  60. echo WORKING...
  61. trends2a < trdata.in > trweek.out
  62. echo WORKING...
  63. trends3
  64. cls
  65. goto trintro
  66. :trread
  67. cls
  68. trread
  69. cls
  70. goto trintro
  71. :s3intro
  72. cls
  73. s3intro
  74. goto s3start
  75. :s3start
  76. KEYPRESS 0 1 2 3
  77. if errorlevel 4 goto s3read
  78. if errorlevel 3 goto system3b
  79. if errorlevel 2 goto system3a
  80. if errorlevel 1 goto s3exit
  81. goto s3start
  82. :s3exit
  83. cls
  84. echo Exiting SYSTEM 3...
  85. goto nflmenu
  86. :system3a
  87. cls
  88. system3a
  89. cls
  90. goto s3intro
  91. :system3b
  92. cls
  93. system3b
  94. cls
  95. echo WORKING...
  96. system3c < s3data.in > s3week.out
  97. echo WORKING...
  98. system3d
  99. cls
  100. goto s3intro
  101. :s3read
  102. cls
  103. s3read
  104. cls
  105. goto s3intro
  106. :s2intro
  107. cls
  108. s2intro
  109. goto s2start
  110. :s2start
  111. KEYPRESS 0 1 2 3
  112. if errorlevel 4 goto s2read
  113. if errorlevel 3 goto system2b
  114. if errorlevel 2 goto system2a
  115. if errorlevel 1 goto s2exit
  116. goto s2start
  117. :s2exit
  118. cls
  119. echo Exiting SYSTEM 2...
  120. goto nflmenu
  121. :system2a
  122. cls
  123. system2a
  124. cls
  125. goto s2intro
  126. :system2b
  127. cls
  128. system2b
  129. cls
  130. echo WORKING...
  131. system2c < s2data.in > s2week.out
  132. echo WORKING...
  133. system2d
  134. cls
  135. goto s2intro
  136. :s2read
  137. cls
  138. s2read
  139. cls
  140. goto s2intro
  141. :bye
  142.